home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / WaveTracer.lha / WaveTracer / ARexx / Info.rx < prev    next >
Text File  |  1996-06-07  |  784b  |  32 lines
  1. /* WaveTracer DS   Sampleinfos           */
  2. /* © by QXC & VIRTUAL WORLDS PRODUCTIONS */
  3.  
  4. options results
  5. ADDRESS 'WTRexx'
  6. GETSAMPLESIZE
  7. say
  8. if result=0 then
  9.    say 'Es ist kein Sound vorhanden!'
  10. else do
  11.    say 'Es ist ein Sound vorhanden:'
  12.    say
  13.    GETSAMPLESIZE
  14.    say '   Länge:     ' result 'Samples'
  15.    GETSOUNDMODE
  16.    select
  17.       when result=1 then SMode='Mono'
  18.       when result=2 then SMode='Stereo'
  19.       when result=3 then SMode='3 Channel'
  20.       when result=4 then SMode='Quadro'
  21.       when result=5 then SMode='Dolby Surround®'
  22.       when result=6 then SMode='Dolby AC-3® (ohne Subwoofer)'
  23.       when result=7 then SMode='Dolby AC-3®'
  24.       otherwise SMode='Unbekannter Soundmode!'
  25.    end
  26.    say '   Soundmode: ' SMode
  27.    GETCHANNELS
  28.    say '   Kanal-Flag:' result
  29. end
  30.  
  31.  
  32.